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ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD uuu 
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18-Sep-1984 23:46:44 -VAX-11 Bliss- 
Fak teats a ES Be eS 


a 

3 1 1 MODULE parse’ (IDENT='V04-000' 

13 é ; ADDRESSING_MODE (EXTERNAL =GENERAL) ) 

: i : = BEGIN 

: 5 be } MAPASELLEIIILCISL ITIL ETT TTT TPT e PTT TEPC TTI itiiiiiit ty 
: '@ * 
; 5 $09 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 8 : 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 10 oY : ALL RIGHTS RESERVED. . 
: 11 Bt 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 1 \¢ 1 !* ONLY IN ACCORDANCE WITH T OF SUCH LICENSE AND WITH THE * 
re 13 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 14 14 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3; 15 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 Big ; + TRANSFERRED. 
; «(18 318 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 19 01 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 34 ; :* CORPORATION. : 
; ¢ 00 ¢ 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: ? 8 r : ” SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
ty 0025 1 is e 
3 : ooS$ : Vee ee eR RAE RARAAAAARAERAAAAERAAAEA AAA TAAAAREARAREEAAAAERAARERE REE 
: 28 0028 1 !++ 

: , + i! ' } Facility: Command Definition Utility, CLD Parser Module 1 

. 0031 1 ! Abstract: This module is one of a few modules that implements the 

; ; ite 7! perser for CLD files. This parser translates the CLD source 

me 0035 1! anguage into an intermediate representation composed of 

3 $e ate ' } nodes linked in a directed graph. 

; si] : ; Environment: Standard CDU environment. 

; & 0038 1 ! Author: Paul C. Anagnostopoulos 

3 9 0039 1 ! Creation: 30 November 1982 

; 60 0040 1! 

; (41 0041 1 ! Modifications: 

¢ $§ 9k 4 1! . 

3; 6 0045 1! v04-001 8LS0270 Benn Schreiber 9-F EB-1984 

; rf Bee ! } Correct IMAGE statement when image name is not quoted. 

; 4 046 1 i-- 

3 t? boc? 1 

; 648 0048 1 

: 49 0049 1 Library bysstioraryst ibe; 

oo 050 1 require ‘clitabdef'; 

ee )| 375 1 require ‘cdureq'; 


H 7 
15-Sep-1984 23:46:44 VAX-11 Bliss-32 V4.0-74 Pa 2 
14-Sep-19 4 11:58:26 DISK SVMSMASTERSLCDU. SRCSPARSE1 832: 1 - (2) 
; 3 789 1! TABLE OF CONTENTS 
Py 4 7 1 ' seo me eee sooce-lmlmllCU SO SO OOOO OOS eeecoaeoe 
3 5 7 1 
3 $ 7 1 forward routine 
3 795 «1 cdu$cld: novalue, 
3 : 794 «1 cdu$statement, 
3 795 «1 cduS$define_verb, 
: 738 1 cduSdefine_syntax, 
3 1 797 «1 cduSdefine_type, 
. = 8 1 cdu$v_s_clause; 
; 6 7 1 
; 1! EXTERNAL REFERENCES 
° 65 1 1 ' S22 2222222222252 3838=S£€2 SS SS Seen eenenanenene 
a $j 
 @ 805 1 external routine 
; «6468 04 1 cdu$bool_expr, 
3 9 05 1 cduscheck for_children, 
; 0 06 1 cdu$cli_fTag, 
es +4 1 cdu$create_node, 
3 us 08 1 cdu$get_next_token, 
oe: 809 1 cdu$lookup_child, 
:; «676 0810 1 cdu$Sparam_clause, 
3; Bt) 1 cdu$qual_clause, 
3 76 \¢ 1 cdu$report_syntax_error, 
oF 815 1 cdu$token_must_be, 
. 8B 814 1 cduStype_clause, 
;. FF 0815 1 cli$present; 
; 8 0816 1 
3; 8 0817 1 external 
. §& 0818 1 cdu$gl_token_class: long, 
; 6 0819 1 cdu$gq_token: descriptor; 


ey 


abs en 19Re UE:ag:4h YAK]! 


; G LO dl AL DATA 


: The following items contains the address of the root node of t 
} saceracetete representation. This node must be available to it other 
: modgules. 


global 
cdu$gl_root_node: ref node; 
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14-Sep-19 ISKSVMSMAST 
: OVERALL STRUCTURE 


This is a recursive descent compiler. That means ther the source language, 

as contained in CLD files, is compiled by routines which recognize certain 

subsets of the Lan uage and call other such routine to recogn ze the rest 

the Language. outines may be invoked recursively when the syntax 
recursive. 


‘G2 09 CD Cd Gd CD GD CD Oe CD CD 


ee a ss a a a a a it a a 2 tt 
. 


The benguage is assumed to be LL(1), which means it is parsed from left 
to right and each construct can be recognized by ins ect ioe only its 
first token, with no backtracking. It is rictly LL(1), but the 
exceptions aren't too bad. 


not s 


shown in upper case, while nonterminals are shown in lower case. There 

is a parsing routine for each nonterminal. This routine is responsible 

for pulling all tokens for its construct from the file, and creatin 

one or more nodes which are the intermediate representation of the construct. 


The complete syntax for CLD files is presented below. Terminals are 
i 


FEREESESE 


DNAOUESWN OO VOONOULS WN O 


The lexical and syntactic portions of the CDU are based priserity on work 
gone Py A,, Davie and R. Morrison, described in their book ‘Recursive Descent 
ompiling’’. 


The intermediate representation of the file is composed of a set of nodes 
Linked together as a directed graph. Each node represents a single semantic 
entity, with any subordinate entities as its children. Children are 

Linked together in a sister chain, as opposed to having an array of : 
child pointers in the node. The right-hand side of the syntax description 
shows how the syntax is mapped into nodes. 


mt a as a as ss a a 1s a ss 4 Ss st 
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: 18§ é 1 j SRREL PR AA SEAL Se aa ER 

: 128 4 4 eeeee eeeceoe eeeeeceaeaeaoe 

.- 3 : 

: } 1 | 66 : NONTERMINAL SYNTAX INTERMEDIATE REPRESENTATION 
; 1 ee 

; ; rt: } cld ::= {C,] statement}+ node with children 

; 1 ! statement ::= IDENT hestring | 

_ 4 9g} node with stri 

i 436 sf : yo LE _syepol : node with symbot 

i 4 1 i define-syntax ! 

. 4 1 i efine-syntax ; 
if 138 oy 1; define-type 

; 13 4 } define-verb ::= DEFINE VERB symbol {C,] v-s-clause}* node with symbol, children 
; 1¢} 0873 ! define-syntax ::= DEFINE SYNTAX symbol {C,] v-s-clause}* node with symbol, children 
: 143 Bas : define-type ::= DEFINE TYPE symbol {C,] type-clause)* node with symbol, children 
3; 745 0878 1 | v-s-clause ::= CLIFLAGS ( cli-f 

any 33 c lag {, cli-flag)* ) } node with child 

ry sth : Bint aot symbol ? node with s mel 

; 148 ogg! 1 i NODISALLOWS 1 eC 

149 0882 1 | IMAGE -hestring | node 

180 Bas 1 i suTpuTs ete - H node with string 

: 484 Oaeey i purty ; symbol {,symbol}* ) | node with children 

: 48 oases yi ETER Pn {C,J param-clause}* | node with symbol, children 
: 138 0886 1 | PREFIX symbol. node 

¢ 48z one? 1 i 4 ee H node with symbol 

486 ones 1 i ous syapol {C.J qual-clause}* ; node with symbol, children 
i 136 0889 | ROUTINE. symbol + symbol 

188 ttt : SYNONYM symbol node with symbol 

; 0892 1 ! param-clause ::= PROMPT C=] {symbol : string) : i 

; 160 0895 Soomen diene ring node with string 

:; «(16 0895 1! qual-clause ::= BATCH } 

; 33 H ; node 

ie Be REGAIN re 

: 102 0898 1 | PLACERENT Ce) {GLOBAL | LOCAL | POSITIONAL) } noes with symbol 

: 188 +44 ! common_clause , 

3; 168 901 1 ! type-clause ::= KEYWORD symbol {C.J ke 

; 33 ‘ yword-clause}* } node with symbol, ch 

: 190 3 : PREFIX symbol node with seabed mere 
3 904 1 ! keyword-clause ::= NEGATABLE : 

: 17 905 1 | NONNEGATABLE node 

: ihe 308 1 j common_clause 

; 1%? H's ' ; common=clause ::= CLIFLAGS ( cli-flag {, cli-flagd* ) | node with children 

i 17 910 1 | ABEL [=i node 

: 128 4 tomy e r2,5ymbol P node with symbol 

149 a Vi ue ct: pyabol ' node with symbol 

: 1B0 aig +i value_clause {, value_clause}* )] node with children 

3; «181 914 1 ! value-clause ::= CONCATENATE | 

182 0915 13 NOCONCATENATE ee 


ge 6 
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; 183 218 1: DEFAULT C=] {hestring | node with children 
3. (Y 917 1! ( string {, string}* )} | 

; «185 4 1! IMPCAT | node 

3 1 919 1! LIST } node 

7 920 1! REQUIRED | node 

3 ! ; 1 : : TYPE C=] {builtin-type | symbol} node with code or symbol 
; 19 i § ! builtin-type ::= one of a set of symbols beginning with $ 

; 198 925 1! cli-flag ::= ABBREVIATE | nodes 

3; 9 9 $ Bz FOREIGN | 

3 6194 9 1! IMMEDIATE | 

; 4195 926 1! MCRIGNORE } 

Be RRO 

; 198 ie NOSTATUS — 

; 54 0938 ' bool-expr ::= bool-term {OR bool-term)* node with children 
; 4 0935 ' ! bool-term ::= bool-factor {AND bool-factor}* node with children 
3 204 0937 1 |! bool-factor ::= ( bool-expr ) | bool-expr node 

3 soe 0938 1! ANY2 ( perth {, path}* ) | node with children 
3 54 3494 : } WOT pat H node with child 

3 : a 

3 208 0941 1! , 

3 % Beg { : path ::= C< symbol >] symbol {. symbol}* node with children 
: 211 0944 1 ! string ::= "* anything-but-quotet " 

3 i 0945 1! symbol ::= {$ i O-9 | AwZ i Lt anzd+ 

; at 0946 1 ! hestring ::= string ' 

: ‘3 bh 4 ' } anything-but-open-c Lose-comma-equal-eol+ 

: 216 0949 1 | 

; +4 0950 1 ! NOTES: ; 

3 18 0951 1! Equal signs are optional in cases where they were documented 

: 219 0952 1! in the V5.0 documentation. So 

; 220 0955 1! There is no provision for recognizing a number as a separate token. 
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2 
: INFO#250 L1:0990 
; Referenced LOCAL symbol LAST_STATEMENT is probably not initialized 


TITLE PARSE} 
-IDENT \V04-000\ 


954 1 !44 
g $35 1: Description: This parsing routine recognizes the distinguished nonterminal 
2 828 ! } “cld'", which represents the entire CLD file. 
8 958 1 | Parameters: None. 
959 1! 
ig 960 1 ! Returns: Nothing. 
S 961 1! 
0 962 1 ! Notes: 
1 0963 1 !-- 
¢ 0964 1 
3202 1 GLOBAL ROUTINE cdu$cld : novalue 
4 298 = BEGIN 
35 096 
36 0968 local 
37 0969 statement: ref node, 
38 0970 Last_statement: ref node; 
39 0971 
40 097 
re B3h7 ! Create a root node for the tree. 
¢§ 344) cdu$gl_root_node = cduScreate_node(node_k_root); 
zs 3444 ! Loop once for each statement in the CLD file. 
47 0979 cdu$get_next_token(); 
rf 4) until token_Ts(tkn_k_eof) do ( 
29 o38 ! Statements may be separated with commas. 
252 4 ; skip_optional_token(tkn_k_comma); 
$37 0986 !' We must have another statement. Parse it and Link its node 
$2? 44-44 ! onto the end of the statement List. 
257 0989 statement = cdu$Sstatement(.cdu$gl_root_node); 
3 443 : Link_parent_to _child(cdu$gi_ root_fode, Statement, last _Statement); 
60 099 ‘ 
61 99 return; 
o¢ 0994 
6 0995 1 


-PSECT S$GLOBAL$,NOEXE,2 


00000 CDUSGL_ROOT_NODE:: 
-BLRB 4 


L 
-EXTRN CDUSBOOL EXP 
-EXTRN CDUSCLI_FLAG 
sEXTRN CDUSGET_NEXT 


VAX-11 Oi iss: 32 _V 
DISKSVMSMASTER: 


lou. OSRCIPARSE?. B32;1 


S., 


FOR CHILDREN 
“NODE 


PARSE1 
v04- 


3 Routine Size: 


SESE 


4 7 
15-Sep-19 
14-Sep-19 


003¢ 60008 
55 0000" CF 9E 4 
54 000000006 30 9E 0000 
1 0D Q000E 
000000006 00 9} FB 00010 
65 0 dO 00017 
64 00 FB OOOIA 
50 000000006 00 00 0001D 
04 50 01 Bo0S3 
$3 13 00027 
05 0 Di 00029 
03 12 0002C 
64 00 FB poet 
65 DD 00031 
0000v CF 01 FB 00033 
53 50 D0 00038 
50 65 00 00038 
08 AO D5 0003E 
06 12 00041 
08 a0 53 DO 00043 
04 11 00047 
04 A2 53 DO 00049 
52 53 D0 0004D 
CB 11 00050 
04 00052 


83 bytes, Routine Base: S$CODE$ + 0000 


1$: 


2$: 


AM 


4 23:46:44 VAX-11 Bliss-32 V 

4 $7:28:38 DISKSVMSMASTER 
eEXTRN CDUSLOOKUP_CHILD 

~EXTRN CDUSPARAM_CLAUSE 

~EXTRN CDUSQUAL_CLAUSE 

«EXTRN CDUSREPORT SYNTAX_ERROR 
«EXTRN CDUSTOKEN MuST_BE 

~EXTRN CDUSTYPE_CLAUSE 

~EXTRN CLISPRESENT, CDUSGL_TOKEN_CLASS 
«EXTRN CDU$GQ_TOKEN 

-PSECT S$CODE$,NOWRT,2 

-ENTRY CDUSCLD, Save R2,R3,R4,R5 
OVAB  CDUS$GL_ROOT_NODE. R5 

MOVAB  CDUSGET_NEXT_TOKEN, R4 
PUSHL #1 

CALLS #1, CDUSCREATE_NODE 

MOVL RO, CDU$GL_ROOT_NODE 
CALLS #0, CDUSGET_NEXT_TOKEN 

MOVL CDUSGL_TOKER_CLASS, RO 
CMPL RO, #4 

BEQL 

CMPL RO, #5 

BNEQ 

CALLS #0, CDUSGET_NEXT_TOKEN 
PUSHL CDUSGL_ROOT”NOD 

CALLS #1, CDOSSTATEMENT 

MOVL RO, STATEMENT 

MOVL CDUSGL_ROOT_NODE, RO 

TSTL 8(RO) 

BNEQ 3$ 

MOVL STATEMENT, 8(RO) 

BRB 4$ 

MOVL STATEMENT, 4(LAST_STATEMENT) 

MOVL STATEMENT, LAST_STATEMENT 

i 


Tad ss Pa 
:CCDU. SRC JPARSE1.832;1 
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8 
PARSE1 18 -sep-1984 3:46:44 VAX-11 Bliss-32 thet Pa 
04 14-Sep-1984 11:58:26 DISKSVMSMASTER: CCDU.SRCJPARSE1.832;1 
; 265 1 !e4 
3 96 997 1! Description: This parsing routine recognizes a ‘'statement’’, which is any 
; a4 4 : of the major types of definitions that appear in a CLD. 
: , 1308 : Parameters: parent By reference, parent node of this constuct. 
: a! 1906 : Returns: The top-level node representing the statement. 
: 27 1004 1 ! Notes: 
: 276 1005 1 !<- 
3 ar 1908 1 
3s er 1007 1 GLOBAL ROUTINE cdu$statement(parent: ref node) 
: ef 1008 = BEGIN 
; 278 1009 
: 279 1010 local 
; 280 1011 statement: ref node; 
; 281 Ste 
; o 101 f 
; o? ite ! Determine which kind of statement we have. 
: ; 5 1016 if token_is(tkn_k_symbol,"IDENT") then ( 
; 287 1018 ! The IDENT statement suppl tes a string to be stashed in the object 
3 43 ION ! file. It conflicts with any existing statement. 
; 290 1021 if cdu$Scheck_for_children(.parent,node_k_ident) then 
; $3) 10s¢ cduSreport_syntax_error(msg(cdu$_dupident)); 
; 238 1058 ; ! The next token is the string. Save it in a node. 
: 295 1026 cdu$get_next_token(tkn_k_h_string); 
: 296 1027 statement = cdu$create node(node_k_ident,.cdu$gq_token[len],.cdu$gq_token[ptr]); 
; 297 1028 cduStoken_must_be(tkn_K_string); 
; 298 +44 return .statement; 
; 299 1030 ds 
: 300 1031 
; it 1036 if token_is(tkn_k_symbol,*MODULE') then ( 
; 36 1034 ! The MODULE statement supplies a symbol to be used as the name of the 
3 Soe 1932 ! CLD object module. It conflicts with any existing statement. 
; 306 1037 if cduScheck_for_children(.parent,node_k_module) then 
: 34 IOs cdu$Sreport_syntax_error (msg(cdu$_dupmodule)); 
: +4 H ! The next token is the symbol. Save it in a node. 
; 311 Ines cdu$get_next_token(); 
3 \¢ 104 statement = cduScreate_ node(node_k_module,.cdu$gq_token[len],.cdu$gq_token[ptr]); 
sl 1044 cduStoken_must_be(tkn_Kk_symbol); 
: 314 1045 return .statement; 
s 315 Hg ); 
3 1 104 . 
s 3 1048 ! We must have a DEFINE statement. Get the next token and see what kind 
; 318 1049 ! of a DEFINE it is. The appropriate syntax routine is called and returns 
; 4 iat ! the top-level node representing the statement. 
: 321 1052 cdu$Stoken_must_be(tkn_k_symbol,ctext("DEFINE')); 
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PARSE! if Sep 3:46:44 VAX=-11 Bliss-32 V 10 
“V0e2600 14-Sep 0-1 984 1:38:36 DISKSVMSMASTER: cou OSRCSPARSE1. B32;1 snes (7) | 


: 332 1053 2 if token. is(tkn_k symbol ,*VERB") then 
3 1054 statenent~ = cduSdef ne. verb(. parent) 
s 4 1 2? else if token_is(tkn_k ofymbol." SYNTAX’) then 
3 5 10 $ statement = CduSdefine vfyntex(: perents 
; $ 105 else if token. is(tkn_k symbol, 
$ 1928 statement = cduSdefine atype(. parenti 
$ 8 1059 else ( 
: 9 1060 cduSreport_syntax_error(msg(cdu$_invdefine)); 
3 0 1061 return cduScreate_node(node_k_error); 
Beg 
; : 1064 ! If there is already a definition with the same name, then we have a conflict. 
3 : 1992 ! Tell the user about it. 
3 1067 if cduSlookup_child(.parent,.statement[node_ w <typs] 
; 337 1068 -Statement(node_b text _tength3 }, statement node_t_text]) neqa 0 then 
: 338 1069 cduSreport_syntax_error(msg(cdu$_dupdef),1,statement(node_ b text_length)); 
: 339 1070 return .statement; 
3 sey 1071 
3 1 1072 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
54 4E 45 44 49 00000 P.AAA: .ASCII \IDENT\ : 
45 4C 55 44 4F 4D 00005 P.AAB: .ASCII \MODULE\ é 
45 4E 49 46 45 44 06 OQO00B P.AAC: .ASCII <6>\DEFINE\ : 
42 52 45 28 00012 P.AAD: .ASCII \VERB\ : 
58 41 54 4E 59 53 00016 P.AAE: .ASCII \SYNTAX\ 3 
45 50 59 54 QOO1C P.AAF: .ASCII \TYPE\ $ 
-EXTRN CDUS_DUPIDENT, CDU$S_DUPMODULE 
-EXTRN CDUSTINVDEF INE, CDUS_DUPDEF 
-PSECT SCODES,NOWRT,2 
OFFC 00000 ENTRY aes Heh le Save R2,R3,R4,R5,R6,R7,R8,- =; 1007 
5B 00000000G 00 9€E 00002 MOVAB CDUSCHECK FOR_CHILDREN, R11 3 
5a 000000006 00 9€ 00009 MOVAB CDUSGL_TOREN CLASS, R10 : 
59 saa +944 00 9E 82019 MOVAB CDUSCREATE ENODE. RS 3 
28 0000° CF 9€ 0001 MOVAB ss R 3 
3 900000006 9 9E 9001¢ MOVAB CDUSREPORT SYNTAX_ERROR, R7 : 
6 000000006 9E 000 MOVAB CDU$GQ_TOKEN+4, R 3 
0D A 01 338 A CMPL CDUSGL~ ~TOKEN. CLASS, #13 ; 1016 
B 12 00020 BNEQ $ 3 
50 66 DO 0002F MOVL CDUSGQ_TOKEN+4, RO : 
05 00 60 FC rs 20 4 CMPCS CDUSGO- TOKEN, (RO), #0, #5, P.AAA 3 
F 12 00039 BNEQ 28 : 
2 0D 000 PUSHL ; 1021 
04 AC DD 00030 PUSH eg : 
9¢ 4} Bee CALLS - CDUSCHECK_FOR_CHILDREN 3 
09 E 04 BLBC 1 3 
000000006 8F DD 00046 PUSHL no; DUP IDENT 3 1022 
7? 1 FB 0004C CALLS #1, CBUSREPORT_SYNTAX_ERROR 3 
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0000v 


00 


0000Vv 


00 


00 
7E FC 
9 
4 
0D 
5 
6 FC 
05 
04 
68 
09 
? 000000006 
00 
7E FC 
69 
54 
00 
08 
00 
0D 
50 
60 FC 
12 
04 
CF 
4 
0 
60 FC 
16 
04 
CF 
1g 
50 
60 FC 
1¢ 
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2$: 


3$: 


6$: 


7$: 


VAX-11 Bliss-32 V 


USGET _NEXT_TOKEN 
~TOKER+4 
OKEN, *2¢P) 


=T 

yeene Ate NODE 
ATEMENT ~ 

g0uséL. TOKEN_CLASS, #13 


CDUSGQ_TOKEN+4, RO 
CDUSGO" TOKEN, (RO), #0, #6, P.AAB 


3 

PA me 
DUSCHECK_FOR_CHILDREN 

Piatt DUPMODULE 
CBUSREPORT SYNTAX_ERROR 

50° CDUSGET_NERT_TOKEN 

CDU$GQ_ TOK ER* 4 

ss TOKEN, =-(SP) 


. coyermeate NODE 


Ro STATEMENT 
#1, CDUSTOKEN_MUST_BE 
P. AAC 


#13 
eee CDUSTOKEN_MUST_BE 
cDUSGL. TOKEN_CLASS, #13 


R5 
fousco. TOKEN+4, RO 
CDUSGO"- TOKEN, (RO), #0, #4, P.AAD 


PARENT 
#1, CDUSDEF INE_VERB 


RS, 9$ 
CDUSGQ_TOKEN+4 
CDUSGQ" TOKEN, ino. #0, #6, P.AAE 


PARENT 
#1, CDUSDEF INE_SYNTAX 


RS, 9$ 
foisco. TOKEN+4, RO 
CDUSGQ"TOKEN, (RO), #0, #4, P.AAF 


9$ 
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(7) 
1026 
1027 


1054 


1055 


1056 


1057 


ene 


; Routine 


0000v 


000000006 


Size: 333 bytes, 


54 


000000006 ar 
7 0 


0 


Routine Base: 


01 
P 
000000006 : 
of 


04 DD 
i 
DD 
FB 
D4 
FB 
ge 
11 AG OOF 
10 AG 3 
64 3C 
06 AC OD 
4 F 
0 0 
OE 1 
10 AG OOF 
1 0D 
DD 
3 FB 
54 00 
04 


SCODES + 0053 


BR 
9$: PUSHL 


~~ 3 8OOO 


AOPOMDONOS FOUN FSV 
< 
~ 
@ 
q 


108: PUSHAB 


118: MOVL 


TYPE 


EMENT) 
STATEMENT), =(SP) 
AT patil =(SP) 


CDUSLOOKUP_CHILD 


=2=—-—22U0-—-— 


STATEMENT) 


: DUS_DUPDEF 
., EBUSREPORT. SYNTAX_ERROR 
STAT EMENT, RO ~ 


X-11 Bliss-32 hay | 
SKSVMSMASTER: CCDU. SRC JPARSE1.832;1 
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(7) 
1058 


a a 


8 
PARSE! 15-sep-19 4 23:46:44 VAX-11 Bliss-32 V4.0-74 Pa 13 
y0e 2800 12-808-198e #9 :$8:5¢ DISKSVMSMASTER: CCDU.SRCJPARSE1.832;1 (8) 
: 2 ete 1 I’Sescrtonton: Yet i i izes the “defi 
: ! Description: S parsing routine recognizes the ‘‘define-verb"’ construct, 
: 5 ; 73 : } which is usee to define one DCL verb. . : 
; ? ; 7 : Parameters: parent By reference, parent node of this constuct. 
3 , ; 3 : Returns: By reference, the top-level node of the statement. 
3 ; 19 1 i Notes: 
; $8 19 1 neon ROUTINE cduSdefi b( f node) 
; c efine_verb(parent: 
: i 19 5 2 = BEGIN r copsrbestgapaoents se Brea 
; $ 10 Local 
3 58 1088 statement: ref node, 
3 59 1089 clause: ref node, 
: : H+ last_clause: ref node; 
: : 1098 
3 109 ! The next token must be the name of the verb. Create anode to represent the 
; : 1 ! statement and put the name in it. 
; 10 cdu$get_next_token(); 
3 109 statement = cduScreate node(node_k_define_verb, .cdu$gq_token[len],.cdu$gq_token[otr]); 
: 44 cduStoken_must_be(tkn_K_symbol); 
; y's ! Now we have a sequence of clauses which describe the verb. 
: 1108 loop ( 
3 YS ! The clauses may be separated by commas. 
3 BY skip_optional_token(tkn_k_comma); 
: 1109 ! Parse a clause. If there weren't any more, then we are done. 
: 1198 ! Otherwise Link the clause node on to the end of the clause chain. 
; 1110 clause = cdu$v_s_clause(.statement); 
8 1111 if .clause eqla then exitloop; 
; 1448 . Link _parent_to_child(statement,clause,last_clause); 
: 1114 , 
: 1337 return .statement; 
; 38 1419 ; 
> INFO#250 Li:1112 
; Referenced LOCAL symbol LAST_CLAUSE is probably not initialized 


a 


003¢ 00000 -ENTRY CDUSDEFINE VERB, Save R2.R3,R4,R5 > 1084 
$5 000000006 9€ 00002 ROVAB —CDUSGET NERT TOKEN, RS | 
* oonnane $3 ES S88) Fate PeogstU Late =O 7) 
7E taunts ratte MOVZWL CDUSGO"TOKEN, -(SP) ; 


cn 


————---------—-—----— 


8 
Sse “1984 23:46:44 VAX-11 Bliss-32_ V4.0-74 P 14 
4 7:4 26 DI SKSVMSMASTERSCCDU. SRCSPARSE .832; 1 ees (8) 


14-Sep-1984 

4 DD 00019 PUSHL  # : 

000000006 00 ; FB 1 CALLS #3, CDUSCREATE_NODE : 
: > DD rh Ue = 1098 

000000006 1 F CALLS #1, CDUSTOKEN_MUST_BE : 
88 000000006 of 1$: CMBL DUSGL_TOKEN_CLASS; #5 + 1105 

65 fB 9 CALLS #0, CDUSGET_NEXT_TOKEN : 
4 0D A 28: PUSHL STATEME + 1110 

0000v cf re ¢ CALLS #1, CDUSV_S_CLAUSE ; 
3 20 p *} Bove RO, CLAUSE 3 0111 
08 A p 46 Ist (STATEMENT) + 1112 

08 Aé 38 : GoeB MOVL CLAUSE. 8 (STATEMENT) : 

04 a 3 v0 0051 3$: MOVL CLAUSE, 4(LAST_CLAUSE) : 
5 >? og tH} 4$: wove CLAUSE, LAST_CCAUSE 3 1098 
50 7 DO 0005A S$: MOVL STATEMENT, RO + 1115 
04 0005D RET + 1117 


; Routine Size: 94 bytes, Routine Base: S$CODE$ + O01A0 


| 4H 8 

PARSE) 15-Sep-1984 23:46:44 VAX-11 Bliss-32 V4.0-74 Pp 15 
v0e=000 Ve-8ep=}98e 17:88:56 SiSKSMGMASTERSCEDU saCSPARSE?.832:1°°%" «os | 
; 389 1138 1 lee 

3; 390 1119 1°! Description: This parsing routine recognizes the ‘‘define-syntax"’ construct, 
; 391 11 9 1! which is used to alter the syntax of a command based on the 
3 98 1 : } presence of some qualifier. | 
; Be i § ; ; Parameters: parent By reference, parent node of this constuct. | 
; 38 i 5 : ; Returns: By reference, the top-level node of the statement. 
; 398 1159 1 i wotes: 

: iGo 199 1 

3 401 1130 1 GLOBAL ROUTINE cduSdefine_syntax(parent: ref node) 

3 rt if 1 = BEGIN 

> 404 1138 5 Local 

3; 405 1134 statement: ref node, 

; rts | 1135 clause: ref node, 

; 40 11 : last_clause: ref node; 

: 409 1138 

: 410 1139 ! The next token must be the name of the syntax definition. Create a node to 

; ais Be ! represent the statement and put the name in it. 

; a1 1166 cduSget _next_token(); 

; 414 114 statement = cdu$Screate_node(node_k_define_syntax,.cdu$gq_token[len],.cdu$gq_token(ptr]); 

3 $1? 1362 cdu$Stoken_must_be(tkn_K_symbol); 

; Ht 11¢8 ! Now we have a sequence of clauses which describe the new syntax. 

3 419 1148 3 Loop ( 

; $39 1133 ! The clauses may be separated by commas. 

F $58 113) skip_optional_token(tkn_k_comma); 

: 424 1183 ' Parse a clause. If there weren't any more, then we are done. 

: ret 113 ! Otherwise Link the clause node on to the end of the clause chain. 

: £39 1156 clause = cdu$Sv_s_clause(.statement); 

3; 428 1157 if .clause eqla 0 then exitloop; 

3 $$? 1158 Link_parent_to_child(statement,clause,last_clause); 

: 031 1140 3 

: 43¢ 1161 return .statement; 

: 8 1188 1 END; 

> INFO#250 Li:1158 

; Referenced LOCAL symbol LAST_CLAUSE is probably not initialized 

003c 00000 ENTRY CDUSDEFINE SYNTAX, Saye R2,R3,R4,R5 3; 1130 
55 000000006 . 9E b8 MOVAB CDUSGET_NERT TOKEN, R 3 
65 FB 00 CALLS #0, CDUSGET REXT_TOKEN ; 1143 
000000006 00 bdD 0000C PUSHL CDUSGOQ_TOKER+4 3 114 


8 
¥00= 800 13-Sep-1984 $7:98:56 | SoScbinGhadfensctsu’sacSearser.e32;1°°% «38 


7E 000000006 HS 2 mOVZUL ¢ $GQ_TOKEN, -(SP) : 
000000006 90 re 1 CALL ‘ . CDUSCREATE NODE : 
7 D ty PUSH 3 = 1144 
000000006 99 1 FB CALLS #1, CDUSTOKEN_MUST_BE ; 
000000006 p 1$: CPL DUSGL_TOKEN_CLASS; #5 + 1151 
65 FB CALLS CDUSGET _NEXT_ TOKEN : 
4 DD 0003A 28: PUSHL STATER : 1156 
0000v cf 1 Ff 03¢ CALLS a. cDusy S_CLAUSE : 
3 0 p 41 MOVL R use 3 
4 44 BEQL : 1157 
08 As OD 0046 TSTL (STATEMENT) : 1158 
06 1 004 BNEQ : 
08 AG DO 00048 MOVL CLAUSE , 8 (STATEMENT) : 
04 11 0004F BRB 4 : 
04 ag ; +4 0051 3$: MOVL CLAUSE, 4(LAST_CLAUSE) $ 
5 53 DO 00055 4$: MOVL CLAUSE, LAST_CCAUSE 3 
D4 11 00058 BRB + 1144 
50 54 00 90054 5$ MOVL STATEMENT, RO + 1161 
04 0005p RET : 1163 


; Routine Size: 94 bytes, Routine Base: S$CODES + OIFE 


8 
PARSE! 1b-sep-1984 23:46:44  VAX#11 BLiss-32 v4.0-76 Page 17 
1008500 a= Seen TFRs FF:S8SG Sell Sea hbo sees eanser 032-12 «10; 


4 1164 1 !¢¢ 

4 1165 1°! Description: This parsing routine recognizes the det inentype construct, 
4 1398 1! which is used to define a set of keywords which some 

tz +e : : qualifier can take as values. 

$) 1169 } ; Parameters: parent By reference, parent node of this constuct. 
ret 7 : Returns: By reference, the top-level node of the statement. 

445 1198 1 | Notes: 

ne a 

448 1178 1 GLOBAL ROUTINE cduSdefine_type(parent: ref node) 

449 117 = BEGIN 

res) 1198 local 

$28 1180 statement: ref node, 

45 1181 clause: ref node, 

454 1186 last_clause: ref node; 

18 1184 

457 1185 ! The next token must be the name of the type definition. Create a node to 
$28 1136 ! represent the statement and put the name in it. 

460 1188 cdu$get_next_token(); 

461 1189 statement = cduScreate node(node_k_define_type,.cdu$gq_token[len],.cdu$gq_token[ptr]); 
re 1339 cdu$Stoken_must_be(tkn_K_symbol); 

re ¢ 1138 ! Now we have a sequence of clauses which describe the type keywords. 

466 1194 loop ( 

ret HB ! The clauses may be separated by commas. 

+83 1138 skip_optional_token(tkn_k_comma); 

471 1199 ! Parse a clause. If there weren't any more, then we are done. 

rt 1309 ! Otherwise Link the clause node on to the end of the clause chain. 
474 \e06 clause = cduStype_clause(.statement); 

475 \8 if .clause eqla 0 then exitloop; 

476 1204 Link_parent_to_child(statement,clause,last_clause); 

ore 1502 ); 

ris ' oF ! A type definition must include at least one keyword. 

481 1209 if not cduScheck_for_children(.statement ,node_k_keyword) then 

48 1 19 cdu$Sreport_syntax_error(msg(cdu$_reqkéy),1,statement(node_b_text_length]); 
48 121 return .statement; 

484 1 \¢ 

485 121 END; 

INF 0#250 L1:1206 


; Referenced LOCAL symbol LAST_CLAUSE is probably not initialized 
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3; Routine Size: 


| 8 
PARSE! 15+Sep- 
$0500 re 


orb 138G FF:S8:58 | NS coimGhASTERs Cebu sac Sparse .832;1 
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22 000000006 
7& 900000006 
000000006 99 


bole lelelq) 


000000006 
08 000000006 


65 
000000006 9° 
4 


oan 
= 


Nm 
bad 


08 
08 A2 
04 A3 


fw 
PM 


wn 
bod 


000000006 09 
10 


000000006 
000000006 08 


MODOC Pr MNO 9 VIMIOMO YS yt eet te opt pet pte oo 3 
VWF MOMNDN LS LL LOWLO—-"WOS VOW OOSOO 


oo TOO OM"09 9090 9 9 9 19 FO MOF MOWS TOW 
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SEND DAA AD MI EB EAI SS 
o 
bad 


MONS S NOM OS NW 9 DOOWM & NV NVI OME 
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128 bytes, Routine Base: S$CODE$ + 025C 


CDUSDEFINE TYPE, Save R2,R3,R4,R5 
CDUSGET wert TOKEN, R5 
#0, CDUSG - 


GQ_TOKEN+4 
GQ_TOKEN, (SP) 
C 


DUSCREATE_NODE 
STATEMENT 


# 
#1, CDUSTOKEN_MUST_BE 
DUSGL_TOKEN_CLASS; #5 


#0, CDUSGET_NEXT_TOKEN 
STATEMENT 

#1, CDUSTYPE_CLAUSE 

RO, CLAUSE 


C 
C 
ie 
#5, 
R 


(STATEMENT) 
es, 8 (STATEMENT) 


CLAUSE, 4(LAST_ CLAUSE) 
SLAUSE. LAST_CCAUSE 


STATEMENT 
#2, CDUSCHECK_FOR_CHILDREN 
\o{STATEMENT) 

#CDUS_REQKE 


EQKEY 
#3, CBUSREPORT_SYNTAX_ERROR 
STATEMENT, RO 
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(10) 
1176 


1188 
1189 


wv 
£5 
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1 "1984 23:46:44 = VAX=11 0-74 P 19. 
14- ats 1 #753835 DISKSVMSMASTE abu SRC TPARSE?.B32:1 (11) 
tee 
! Description: This syntax routine recognizes the ‘‘v-s-clause’’ construct, 
un igh ace the clauses used to describe a verb or syntax 

n 


' 
re definition. 
$3 Parameters: parent By reference, parent node of this constuct. 
494 i Returns: The top-level node representing the clause, or zero if 
ree : there is no clause we recognize. 
i99 i Notes: 
498 leo 
499 


500 GLOBAL ROUTINE cdu$v_s_clause(parent: ref node) 
= BEGIN 


local 
clause: ref node, 
item: ref node, 
last_item: ref node; 


MOMITOPUPONOPONoToTonofnofonofpornornofnunny 


WANNA WAIN nononononononswnnn 3 3 a 


! Determine which kind of clause we have. 
if token_is(tkn_k_symbol,"CLIFLAGS') then ( | 
! We have a CLIFLAGS clause. Create a parent node for the flags. 


clause = cdu$create_node(node_k_cliflags); ‘ 
cdu$get_next_token(); 


! We have a parenthesized List of CLI flags. 

: Eat the open parenthesis. Then sit in a loop which recognizes at 

' least one item, olene with ony others separated by commas. Finally, 
oes she tiese parenthesis. ALl of the items are chained as children 
!o e clause. 


cdu$token_must_be(tkn_k_open_paren); 
loop ( 


item = cduScli_flag(.clause); 
Link_parent_to_child(clause item, last item); 
if ndt token_is(tkn_k_commas then exitloop; 
cdu$get_next_token(J; 


cdu$token must_be(tkn_k_close_paren); 
- return .clause; 
if token_is(tkn_k_symbol,*CLIROUTINE') then ( 


! We have a CLIROUTINE clause. It conflicts with any existing 
! CLIROUTINE, IMAGE, or ROUTINE clause. 


if cdu$check_for_children(.parent ,node_k_cliroutine,node_k_image,node_k_routine) then 
cdu$Sreport_syntax_error(msg(cdu$_confroutimg)); 
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! Next we have a symbol which is the name of an internal CLI 
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v04-000 ' 14-Sep-19 . af) 
44 ' routine that processes the command. Create a node with the | 
re ! symbol. 
4 cdu$get_next_token(); 
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clause = cduScreate_node(node_k_cliroutine,.cdu$gq_token[len],.cdu$gq_token(ptrJ); 
cduStoken_must_be(tkn_k_symboT); 
return .clause; 


“9 


— 
ee 


if token_is(tkn_k_symbol,"DISALLOW') then ( 


! We have a DISALLOW clause. It conflicts with any existing 
! NODISALLOWS clause. 


if cduScheck_for_children(.parent,node_k_nodisallows) then 
cduSreport_syntax_error (msg(cdu$_confnodis)); 


! Create a node for the clause. 


WO OONOUEWN Oo 


clause = cduScreate_node(node_k_disallow); 
cdu$get_next_token(); 


! We now have a boolean expression. Chain it on to the parent node. 
clause[node_l_child] = cdu$bool_expr(); 

: return .clause; 

if token_is(tkn_k_symbol,*NODISALLOWS') then ( 


! We have a NODISALLOWS clause. It is represented by a node. 
! This clause conflicts with any existing DISALLOW clause. 


if cdu$Scheck_for_children(.parent,node_k disallow) then 
cdu$Sreport_syntax_error(msg(cdu$_confdis)); 


cdu$get_next_token(); : 
return cdu$create_node(node_k_nodisal lows); 
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3 
1 

31 if token_is(tkn_k symbol," IMAGE") then ( 

31 ! We have an IMAGE clause. It conflicts with any existing 

Ht ! CLIROUTINE, IMAGE, or ROUTINE clause. 
89 31 if cdu$Scheck_for_children(.parent ,node_k_cliroutine,node_k_image,node_k_routine) then 
230 4 cdu$feport_syntax_error(msg(cdu$_confroutimg)); 
236 $35 ! Now we have a string or an h-string which is the spec of the image 
287 359 ! to be activated for this command. 
2o, 30¢ cdu$get_next_token(tkn_k_h_string); 
+44 ; : ! Strip trailing blanks and tabs 
299 3 $ while chéechar( cduSgq, tokenl tr); .cdusea, tokent enj-1) EQL %C* * 
600 3 or ch$rchar(.cdu$gq_tokenlptr]+.cdu$gq_tokenLlen}-1) EQL 2C' . 


8 
1 18. ep-1984 23:46:44 VAX-11 Bliss-32 V4.0-74 Page 21 
10-86-19 4 11:58:26 DISK SVMEMASTERSECDU. SRCSPARSE1 832; 1 ’ af) 
; 601 1 $ do cduSoq. tokent len) = s¢Cutgq tokent tend - 1; 
: eB ! 4 clause = cduScreate_node(node_k_image,.cdu$gq_token[len],.cdu$gq_token(ptr)); 
; one ! ! Make sure the string isn't too long. 
; 6 1 if .clause(node_b_text length] gtru cmd_k_max_image-1 then 
: 607 : 2 eduSreport. syntax. errortasg(cduS, Tmagélen .1,cmd_k_max_image-1); 
; 609 1 cdu$Stoken_must_be(tkn_k_string); 
: 919 ! ; - return .cTause; _—> ’ 
; 61g 1339 2° 
: elz : rk if token_is(tkn_k_symbol,"OUTPUTS') then ( 
3 oi? 1346 ! We have an OUTPUTS clause. It conflicts with an existing clause. | 
: 617 1300 if cdu$Scheck_for_children(.parent,node_k_outputs) then 
: e18 134? cdu$report_syntax_error(msg(cdu$_confoutputs)); 
; o¢0 132 ; ! Create a node to represent the clause. 
: 692 1349 clause = cduScreate_node(node_k_outputs); 
: 634 1320 cdu$get_next_token(J; 
; 625 1336 : We have a parenthesized List of output items. ‘ 
; 626 135 ! Eat the open parenthesis. Then sit in a loop which recognizes at 
3; 627 1354 ! least one item, along with any others separated by commas. Finally, 
; 628 1355 3 ! eat the close parenthesis. All of the items are chained as children 
; o¢8 1328 ; ! of the clause. 
; 631 1358 : cdu$token_must_be(tkn_k_open_paren) ; 
; 00 
3 £33 1360 4 ° item = cdu$create_node(node_k_outputs_item,.cdu$gq_token[len],.cdu$gq_token(ptr]); 
> 634 1361 4 cdu$token_must_bettkn_k_symboT); 
; 635 1308 4 Link_parent_to_child(clause,item,last_item); 
; 636 1363 4 if not token_iS(tkn_k_comma) then exifloop; | 
: 63 Ht +e 4 , cdu$get_next_token(); 
3 639 1306 ; cdu$token must_be(tkn_k_close_paren); 
: o49 Ht 24 return .clause; 
; 648 1369 2 
: oti 1379 if token_is(tkn_k_symbol, PARAMETER") then ( 
; 645 1326 ! We have a PARAMETER definition. It conflicts with any existing 
: 0 | 137? ! NOPARAMETERS clause. 
3 648 1375 if cdu$Scheck_for_children(.parent,node_k_noparameters) then 
: 66) 1378 cdu$report_syntax_error (msg(cdu$_confnoparm)); 
: o3) 1378 ! The first thing is the parameter name. Create a node for it. 
; £3 1300 cdu$get_next_token(); 
; O28 Ht clause = cdu$Screate_node(node_k_parameter,.cdu$gq_token[len], .cdu$gq_token[ptr]); 
: 036 1388 ! Ensure that the parameter name is in the form Pn. 
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ro . = 
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BRE R REPRE REE R REPRE ER ERE ERE PWN 


a a ae a ae ee ee ee ee ee ee a dd 
a 
OS Soo ON RUN HO DO0 MOU UNS =O O00 NAME WO OO0 WOM FN DO DOD SOUND 2 OO0 IOR ON 


Frww 


v3 
if 


); 
if 


); 


A.A WIAA NAA NINN AAI AIDING BBB PAIN BS BPE PEE 


1 
1 
(bind 

name = .cdu$gq_token(ptr]: vector(,bytel; 


if .cdu$ 9 tokenClen] nequ 2 or 
-nanet nequ ‘P' or 
-namel1J tssu ‘1° or .namel1] gtru ‘O'+cmd_k_max_parms then 


:, cdu$Sreport_syntax_error(msg(cdu$_invparm)); 
cduStoken_must_be(tkn_k_symbol); 


! We have a List of parameter definition clauses. Each is optionally 
! preceded by a comma. ALL of the items are chained as children of the 
! main parameter clause. 


loop ( 
skip_optional_token(tkn_k_comma); 
item = cdu$Sparam_clauset.clause); 
if .item eqla 0 Ehen exitloop; . 
R Link_parent_to_child(clause,item,last_item); 


return .clause; 


token_is(tkn_k_symbol,"NOPARAMETERS') then ( 


! We have a NOPARAMETERS clause. It is repevesstes 7 a node. 
! This clause conflicts with any existing PARAMETER clause. 


if cduScheck_for_children(.parent,node_k parameter) then 
cdu$Sreport_syntax_error(msg(cdu$_confparm)); 


cduS$get_next_token(); 
return cdu$create_node(node_k_noparameters); 
token_is(tkn_k_symbol, PREFIX’) then ( 
! We have an PREFIX clause. It conflicts with any existing clause. 


if cdu$Scheck_for_children(.parent ,node_k_prefix) then 
cdu$Sreport_syntax_error (msg(cdu$_dupprefix)); 


' Now we have a qpatet which is the prefix. Create a node and put 
! the symbol in it. 


cduSget_next_ token(); 

clause = cduScreate_node(node_k_prefix,.cdu$gq_token[len],.cdu$gq_token(ptr]); 
cdu$Stoken_must_be(tkn_k_symboT); 

return .cTause; 


if token_is(tkn_k_ symbol, QUALIFIER") then ( 


! We have a QUALIFIER definition. It conflicts with any existing 
! NOQUALIFIERS clause. 
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ls 715 be if cduScheck_for_children(.parent,node_k_noqualifiers) then 
13 at bet cduSfeport_syntax_error(msg(cdu$_confnoqual)); 

; m8 rer ! The next item is the name of the qualifier. Create a node for it. 

3 720 1009 cduSget_next_token(); 

3 f 1 1778 clause = cduScreate_node(node_k_qualifier,.cdu$gq_token([len],.cdu$gq_token(ptrJ); 
mh: § 1450 ! The definition also conflicts with any existing definition of the 

; 726 1451 ! same name. However, we can't check for this in V4 because of 

3 ve 1426 ! layered products with the 2222 ques titer placeholder hacks in 

3 $ \ee7 ! their CLDs (VMS* fault, not theirs). 

: 728 1455 3! if cduSlookup_child(.parent ,node_k_qualifier, 

; 729 1o28 : -¢lausetnode-b-text Length] ,,clauseC[node_t_text]) neqa 0 then 
.  e 145 : cdu$Sreport syntax_error (iisg(cdu$_dupqual),1,clauseLnode_b_text_length]); 
: f 1 1638 cduStoken_must_be(fkn_k_symbol); 

; 7 g 1460 : We have a List of qualifier definition clauses. Each is optionally 

; 734 1461 ! preceded by a comma. ALL of the items are chained as children of the 

: Te? re «| ! main qualifier clause. 

; 737 1464 4 Loop ¢ 

3; 1465 4 skip_optional_token(tkn_k_ comma) ; 

: 739 1466 4 item = cdu$qual_clause(-clause); 

; 740 1467 4 if .item eqla 0 then exitloop; ; 

3; 741 1468 4 Link _parent_to_child(clause,item,last_item); 

Yee bees 

: 746 1471 return .clause; 

a: eb 

; 47 1474 if token_is(tkn_k_symbol,"NOQUALIFIERS") then ( 

; 749 1476 ! We have a NOQUALIFIERS clause. It is represented by a node. 

3 220 AA ! This clause conflicts with any existing QUALIFIER clause. 

: 75 1479 if cduScheck_for_children(.parent,node_k_qualifier) then 

3 a}, Ht +} cdu$Sreport_syntax_error(msg(cdu$_confqual)); 

; 755 148@ cdu$get_next_token(); 

; 756 148 return cduScreate_node(node_k_noqualifiers); 

: 8 lees § 7 

; 39 1486 if token_is(tkn_k_symbol, ROUTINE’) then ( 

: 761 1488 ! We have an ROUTINE clause. It conflicts with any existing 

3 % Mt + ! CLIROUTINE, IMAGE, or ROUTINE clause. 

: 764 1491 if cduScheck_for_children(.parent .node_k_cliroutine,node_k_image,node_k_routine) then 
3 re? 1038 cdu$Sreport_syntax_error (msg(cdu$_confroutimg)); 

: 76? 1494 ! Next we have a symbol which is the name of the user routine which 

3 708 re 4 ! can process this command. Create a node containing the symbol. 

; 770 1299 cdu$get_next_token(); ; 

3; 771 1498 clause = cduScreate_node(node_k_routine,.cdu$gq_token[len],.cdu$gq_token(ptr]); 
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s FT 1499 cduStoken_must_be(tkn_k_symbol); 
; 77 1 90 return .clause: a 
3; 774 1501 3 
3; 77s 1 8 
; aA ! 3? if token _is(tkn_k_symbol,"SYNONYM') then ( 
3; @ 1505 : We have a SYNONYM clause. It specifies a symbol which is a synonym 
5 44s 1208 ! for the verb name. Create a node containing the symbol. 
; 781 1208 cduSget_next_token(); 
: 78 1509 clause = cduScreate_node(node_k_synonym,.cdu$gq_token[len],.cdu$gq_token[ptrJ); 
; 78 1510 cduStoken_must_be(tkn_k_symboT); 
; 784 1511 return .clause; 
; 785 1 \¢ ); 
; 786 151 
; tA 1313 ! We don’t have a clause that we understand, so there probably aren't any more. 
; 789 1516 return 0; 
; 790 1517 
3; 791 1518 
3 INFO#250 L1:1254 
; Referenced LOCAL symbol LAST_ITEM is probably not initialized 
-PSECT SPLITS,NOWRT ,NUEXE,2 
53 47 41 4C 46 49 4C 43 00020 P.AAG eASCII \CLIFLAGS\ : 
45 4E 49 54 55 4F 52 49 4C 43 00028 P.AAH eASCII \CLIROUTINE\ : 
57 GF 4C 4C 41 53 49 44 00032 P.AAI «ASCII \DISALLOW\ : 
53 57 4F 4C 4C 41 53 49 46 GF 4E OO03A P.AAJ eASCII \NODISALLOWS\ : 
45 47 41 4D 49 00045 P.AAK eASCII \IMAGE\ é 
53 54 55 50 54 55 4F O004A P.AAL «ASCII \OUTPUTS : 
52 45 54 45 4D 41 2 41 50 00051 P.AAM: .ASCII \PARAMETER\ : 
53 52 45 54 45 4D 41 52 41 5 GF oF QO05A P.AAN eASCII \NOPARAMETERS\ : 
58 49 46 45 2¢ 50 00066 P.AAO eASCII \PREFIX\ b 
52 45 49 46 49 ef 41 5 51 O006C P.AA eASCII \QUALIFIER\ : 
53 52 45 49 46 49 4C 41 55 51 4F 4E 00075 P.AA eASCII \NOQUALIFIERS\ : 
45 4€ 49 5464 55 4F ; 00081 P.AAR eASCII \ROUTINE\ é 
4D 59 4E 4F 4E 59 00088 P.AA eASCII \SYNONYM\ : 
.EXTRN CDUS_CONFROUTIMG 
-EXTRN CDUS_CONFNODIS, CDUS_CONFDIS 
-EXTRN CDUS-IMAGELEN, CDUS_CONFOUTPUTS 
-EXTRN CDUS"CONFNOPARM 
-EXTRN CDUS_INVPARM, CDUS_CONFPARM 
-EXTRN CDUS"DUPPREF IX, CDO$_CONFNOQUAL 
-EXTRN CDUS CONF QUAL 
-PSECT S$CODES,NOWRT,2 
OFFC 00000 ENTRY cousy S CLAUSE, Save R2,R3,.R4,.R5.R6,R7.R8.- = 1227 
B 000000006 0 9E 9002 MOVAB CDUSCHECK_FOR CHILDREN, R11 ; 
A 00 9 G SE MOVAB CDUSREPORT SYATAX ERROR, R10 ; 
9 00 G 00 9€ 0001 MOVAB CDUSGL_TOKEN_CLASS, R9 3 
58 000000006 00 9€E 0001 MOVAB CDUSGET_NEXT-TOKEN, R8 3 
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57 000000006 9 1 MOVAB CDUS$GO_TOKEN, R7 ; 
D 65 : CPL DUSGL-TOKEN_CLASS, #13 : 1238 
5 04 A7 p A MOVL.  CDUSGQ_TOKEN+4, RO : 
6 67 2D 000 : CMPCS CDUSGQ-TOKEN, (RO), #0, #8, P.AAG : 
0000" CF 00 : 
43 12 000 BNEQ 86 5$ : 
DD 0 PUSHL 4&7 + 1242 
000000006 90 1 FB A CALLS #1, CDUSCREATE_NODE : 
4 0 DO 00041 MOVL > CLAUSE : 
oe 00 FB 00044 CALLS #0, CDUSGET_NEXT_TOKEN + 1243 
DD 047 PUSHL @ + 1251 
000000006 00 1 FB 00049 CALLS #1, CDUSTOKEN_MUST_BE : 
4 DD 00050 1$: PUSHL + 1253 
000000006 90 gi FB 005 CALLS #1, CDUSCLI_FLAG : 
6 0 pO 0005 MOVL : 
08 Ad D5 0005C TSTL (ELAUSE) + 1254 
06 12 0005F BNEQ : 
08 Ab 6 DO 00061 MOVL TEM, 8(CLAUSE) : 
04 11 90063 BRB : 
04 AS 36 DO 00067 as: MOVL ITEM, 4(LAST_ITEM) : 
55 6 DO 00068 3$: MOVL ITEM. LAST_ITEM : 
05 69 D1 BOGE CMPL CDUSGL_TOKEN_CLASS, #5 3 1255 
03 13 00071 BEQL 4$ : 
0197 31 00073 BRW 22$ ; 
7. 00 FB 00076 4s: CALLS #0, CDUSGET_NEXT_TOKEN : 1256 
D5 11 90079 BRB 1$ + 1251 
0D 69 D1 0007B SS: CMPL CDUSGL_TOKEN_CLASS, #13 + 1262 
34 if 0007E BNEQ $ : 
50 04 A7 D 90080 MOVL.  CDUSGQ_TOKEN+4, RO : 
60 67 2D 00084 CMPCS CDUSGQ-TOKEN, (RO), #0, #10, P.AAH : 
0000" CF 90089 ; 
26 12 0008C BNEQ 7$ : 
12 DD OO08E PUSHL #18 : 1267 
OA DD 000 PUSHL #10 ; 
08 DD 00092 PUSHL ; 
04 AC DD 00094 PUSHL PARENT : 
68 04 FB 00097 CALLS #4, CDUSCHECK_FOR_CHILDREN F 
09 50 € BO09A BLBC F 
000000006 8F DD 000 PUSHL  #COU$ CONFROUTIMG : 1268 
A 01 FB OOOA CALLS #1, CBUSREPORT_SYNTAX_ERROR : 
68 00 FB O00A6 6S: CALLS #0, CDUSGET NERT_TOKEN t 127% 
04 A? bp O0A9 PUSHL  CDUSGQ_TOKER+4 > 1275 
7E 7 3¢C O00AC MOVZWL CDUSGO"TOKEN, -(SP) : 
g bo OAF PUSHL # : 
03 1 00081 BRW 52$ ; 
0D 9 D1 0084 7$: CMPL EDUSGL_TOKEN_CLASS, #13 + 1280 
F ; 0087 BNEQ $ : 
50 06 A? p 0089 MOVL  CDUSGQ_TOKEN+4, RO ; 
60 67 2D 0008 CMPCS CDUSGO"TOKEN, (RO), #0, #8, P.AAI ; 
0000" CF 00C : 
1 12 000¢ BNEQ 4869S ; 
A 0D 000C¢ PUSHL #42 > 1285 
04 AC DD 000C9 PUSHL PARENT : 
FB aa CALLS #2, CDUSCHECK_FOR_CHILDREN F 
E CF BLBC OC séiR ; 
000000006 8F DD 00002 PUSHL  #CbUS$_CONFNODIS > 1286 
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6A i FB 08 - CALLS a. CDUSREPORT_SYNTAX_ERROR Poe 
000000006 90 1 FB 0p LL a, CDUSCREATE NODE ; 
FB OO0E7 CALLS #0. CDUSGET_NEXT_TOKEN + 1291 
000000996 88 F EA CALLS #0, gousBOOE EXPR 3: 1295 
AG a p 0 i HOVE RO. S(CLAUSES P 
0D é3 p1 oor8 9$ CMPL CDUSGL_TOKEN_CLASS, #13 F 1399 
5 06 A? 06 OOFD MOVL CDUSGQ_TOKEN+4, RO : 
0B 00 6 aad 67 D 01 1 CMPCS CDUSGQ-TOKEN, (RO), #0, #11, P.AAJ : 
1¢ 12 001 BNEQ 11$ : 
09 DD 001 PUSHL + 1304 
04 AC DD 0010 PUSHL PARENT : 
68 FB 011 CALLS #2, CDUSCHECK_FOR_CHILDREN : 
09 E9 0011 BLBC Osi ; 
000000006 &F DD 00116 PUSHL #CbUS_CONFDIS + 1305 
6A 1 FB OO1IC CALLS #1, CBUSREPORT_SYNTAX_ERROR : 
rs.) O FB OO11F 10$: CALLS #0, CDUSGET_NERT_TOKEN + 1307 
eA pp 0122 PUSHL #42 : 1308 
0286 31 00124 BRW 48$ ; 
0D 69 0100127 11$:  CMPL CDUSGL_TOKEN. CLASS, #13 + 1311 
68 if} 0012A BNEG =«'17$ ; 
50 04 A? 00 0012¢ MOVL.  CDUSGQ_TOKEN+4, RO ; 
05 00 50 67 2D 00130 CMPCS  CDUSGQ-TOKEN, (RO), #0, #5, P.AAK : 
0000° CF 00135 ; 
5D 12 001 BNEQ 17$ ; 
12 DD. 0013A PUSHL #18 t 1316 
OA DD 0013¢ PUSHL #10 ; 
08 DD 00135 PUSHL ; 
04 AC DD 0014 PUSHL PARENT ; 
68 04 FB 00143 CALLS #4, CDUSCHECK_FOR_CHILDREN : 
09 50 £9 00146 BLBC ~=—E._s«aRO, 1 : 
000000006 &F DD 00149 PUSHL #CDU$ CONFROUTIMG : 1317 
6A 01 FB Soret CALLS #1, CBUSREPORT_SYNTAX_ERROR : 
OC DD 00152 128: PUSHL #13 : 1322 
68 01 FB 00154 CALLS #1, CDUSGET_NEXT_TOKEN ; 
50 67 3C 00157 138:  MOVZWL CDUSGQ_TOKER, RO + 1326 
50 04 a7? CO O15, ADDL2 CDUSGO-TOKENSG, RO : 
20 FF AO 91 001 : C -1(RO)> #3 ; 
06 13 0016 BEQL 14$ ; 
09 FF AO 91 0164 cM -1(RO), #9 : 1327 
04 13 168 BNEQ ‘1 ; 
67 8 O16A 14%:  DECW FDUSGO_TOKEN : 1328 
E9 11 0016C BR ; 
04 A? po 16 15$:  PUSHL CDUSGQ_TOKEN+4 : 1329 
7E 67 3C 001 MOVZWL CDUSGQ"TOKEN, -(SP) ; 
A DD 00174 PUSHL a 3 
000000006 00 ; FB 176 CALLS #3, CDUSCREATE_NODE ; 
4 p 17D MOVL LAU : 
F 10 A& 91 001 CMPB =—s-« LOCCLAUSE), #63 > 1333 
D 1B 001 BLEQU 16 ; 
F DD 001 PUSHL #6 > 1334 
1 DD 001 PUSHL #1 ; 
000000006 BF DD 0018A PUSHL  #CDUS_IMAGELEN ; 
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rt CDUSREPORT_SYNTAX_ERROR 


23$ 
PYPe FOKENCLASS. #13 


CDUSGQ_TOKEN+4, RO 
CDUSGO"TOKEN, (RO), #0, #7, P.AAL 


24$ 
#11 


PARENT 
#2, CDUSCHECK_FOR_CHILDREN 


#CbuU$_ CONF OUTPUTS 
4 CBUSREPORT_SYNTAX_ERROR 


#1, CDUSCREATE_NODE 
RO. CLAUS 

#0, COUSGET NEXT TOKEN 
#1, CDUSTOKEN_MUST_BE 
DUSGO_TOKEN+2 
CDUSGO"TOKEN, -(SP) 


1 
#3, CDUSCREATE_NODE 
ITEM 


_ 


CDUSTOKEN_MUST_BE 
€LAUSE) 


M, 8(CLAUSE) 

» 4(LAST_ITEM) 

, LAST_ITEM 
GL_TOKEN_CLASS, #5 


CDUSGET_NEXT_TOKEN 


E 
$ 
E 
E 
U 
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SGL_TOKEN_CLASS, #13 


$GQ_TOKEN+4, RO 
SGO-TOKEN, (RO), #0, #9, P.AAM 
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D 

ONF NOPARM 
BUSREPORT_SYNTAX_ERROR 
DUSGET NERT_TOKER 
Q_TOKER+4 
Q- TOKEN, 
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| 000000006 Q F CALLS 43. CUSCREATE_ NODE : 
| 4 D rh MOVL tA me : 
| 9 06 A? OD MOVL (CDUSG OKEN*4 RO : 13 
67 a CAP SGO-TOKEN, #2 +1 
| 50 s«BF 66 A cHPS (RO), #80 : 1389 
31 01 NO 9 85 CMPB (RO), #49 + 1390 
1F 00264 BLSSU $ : 
38 01 Ad 91 00266 CMPB {R0), #56 : 
1B 0026A BLEQU 298 : 
000000006 BF DD $ 28$:  PUSHL ‘ Dus_! + 1391 
6A 1 FB CALLS tDUSREPORT SYNTAX_ERROR : 
D DD 00275 298: PUSH 4 + 1393 
000000006 09 1 FB 7 CALLS #1, CDUSTOKEN_MUST_BE : 
; o} : HM 308 cnet DUSGL _TOKEN_CLASS, #5 3 1400 
0 FB 6 3 CALLS #0, CDUSGET_NEXT_TOKEN : 
4 0D 31$: PUSHL tA + 1401 
000000006 00 1 FB 00 CALLS #1, CDUSPARAM_CLAUSE : 
- : 8 bo5e0 puee Sg 1402 
018 31 00294 BRW 4$ : 
08 A& 05 00297 328 TSTL (CLAUSE) + 1403 
6 12 029A BNEG : 
08 Aé 6 00 0029 MOVL TEN. 8( CLAUSE) ; 
4 11 002A BRB 4 : 
04 AS 6 00 002A 338: MOVL ITEM, 4(LAST_ITEM) ; 
55 56 DO 00 ae 4$: MOVL TEM, LAST_ITEM 3 
D3 11 002A BRB + 1393. 
0D D1 OO2AB 35$:  CMPL DUSGL_ TOKEN_CLASS, #13 + 1409 
A is 0 af BNEQ $ 3 
50 04 A? p 028 MOVL.  CDUSGQ_TOKEN+4 : 
0c 00 60 67 20 00284 CMPCS CDUSGO-TOKEN, iro. #0, #12, P.AAN ; 
0000" CF 0289 ; 
1¢ 12 0028¢ BNEQ 37 : 
0D DD 0028 PUSHL + 1414 
04 AC DD 002C PUSHL PARENT ; 
68 : FB 02¢ CALLS DUSCHECK_FOR_CHILDREN : 
09 £9 00 C6 BLBC R me ; 
000000006 8F DD 002C PUSHL rcbus 5 1415. 
6A 1 FB OO2CF CALLS toconcpoRt SYNTAX_ERROR 3 
68 0 FB 00202 368 CALLS 50° CDUSGET_NERT_TOKEN : 1417 
pp D PUS wid : 1418 
00D i) BRwW {3$ 3 
0D : pI DA 37$: = CMPL gp DUSGL_TOKEN_CLASS, #13 + 1421 
9 2 DD BNEQ 9 ; 
50 06 A p D MOVL.  CDUSGQ_TOKEN+4 ; 
06 00 hi OE RS CAPES EDUSGOCTOKEN, CRO), #0, #6, P.AAO : 
32 12 00268 BNEQ 39 ; 
F DD 0026 PUSHL #1 > 1425 
04 AC DD OOEF PUSHL T ; 
FB F CALLS SCHECK_FOR_CHILDREN ; 
a F BLBC ; 
000000006 8F DD O02F PUSHL iy DUPPREF IX > 1426 
1 FB FE CALLS . CBUSREPORT_SYNTAX_ERROR : 
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#0, CDUSGET_NEXT_TOKEN 
CDUSGO_TOKER+4 
CDUSGO-TOKEN, =<SP) 

He 

CDUSGL TOKEN. CLASS, #13 


CDUSGO_TOKEN+4, RO 
CDUSGO-TOKEN, (RO), #0, #9, P.AAP 


46 

#1 

PARENT 

. + CDUSCHECK_FOR_CHILDREN 
#CbUS_ CONF NOQUAL 

#1, CBUSREPORT SYNTAX _ERROR 
#0, CDUSGET NERT_TOKER 
CDUSGO_TOKER+4 
COUSGO_TOKEN, -(SP) 

#3, CDUSCREATE_NODE 

RO CLAUSE 

#1, CDUSTOKEN_MUST_BE 
CDUSGL_TOKEN_CLASS> #5 

#0, CDUSGET_NEXT_TOKEN 

#1, CDUSQUAL_CLAUSE 

RO, ITEM 


LAUSE) 
M, 8(CLAUSE) 


M, 4(LAST_ITEM) 
M. LAST_ITEM 


CDUSGL_TOKEN_CLASS, 413 


CDUSGQ_TOKEN+4, RO 
CDUSGQ~TOKEN, (RO), #0, #12, P.AAQ 
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PARENT 

. ; SCHECK_FOR_CHILDREN 
acous CONF QUAL 

#1, CBUSREPORT SYNTAX ERROR 
. CDUSGET_NERT_TOKEN 

#1, CDUSCREATE_NODE 


CDUSGL_TOKEN_CLASS, #13 
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000000006 04 
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68 9 
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\e 
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0 
50 04 A7 
07 00 60 67 
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000000006 00 93 
54 3s 
000000006 00 2 
50 4 


; Routine Size: 1061 bytes, 


79 1519 1 
79 1520 1 END 
794 1521 


$GLOBALS 
SCODES 
SPLITS 
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50$: CALLS 


51$: CMPL 
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oO 
PSM UTI OS 
w 
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Routine Base: SCODE$ + 02DC 


PSECT SUMMARY 
Bytes 
NOVEC, WRT, 


4 
1793 NOVEC,NOWRT, 
143 NOVEC,NOWRT, 


Attributes 


RD ,NOEXE,NOSHR, LCL, 
RD , EXE,NOSHR, LCL, 
RD ,NOEXE,NOSHR, LCL, 


> 
VAX-11 Bliss-32 V4.0-74 Pa 30 
DLEKSVMGMASTERSCCDU. SRCSPARSE? 832; 1 i) | 
51$ : 
CDUSGQ_TOKEN+4, RO : 
CDUSGQ"TOKEN, (RO), #0, #7, P.AAR : 
51 : 
A 3 1491 
#1 3 
#8 3 
PARENT : 
4y EDUSCHECK_FOR_ CHILDREN : 
acbus CONF ROUTIMG + 1492 
#1, CBOUSREPORT SYNTAX ERROR : 
#0, CDUSGET_NERT_TOKEN 3 1497 
CDUSGQ_TOKER+4 + 1498 
CDUSGO_TOKEN, -(SP) : 
#1 3 
52$ F 
EDUSGL_ TOKEN CLASS, #13 + 1503 
CDUSGQ_TOKEN+4, RO 3 
CDUSGQ"TOKEN, (RO), #0, #7, P.AAS : 
55$ : | 
#0, CDUSGET_NEXT_TOKEN ; 1508 
CDUSGQ_TOKEN+4 : 1509 
CDUSGO_TOKEN, -(SP) 3 
#3, CDUSCREATE_NODE ; 
RO, CLAUSE : 
#8 ; 1510, 
#1, CDUSTOKEN_MUST_BE 3 | 
CLAUSE, RO ; 1511) 
RO > 1516) 
3 1518) 
REL, CON,NOPIC,ALIGN(2) 
REL, CON,NOPIC,ALIGN(O) 
REL, CON,NOPIC,ALIGN(2) 


rane ak ep-19R 25:46:44 


Library Statistics 


s------- Symbols -------- 


File Total Loaded Percent 
-$255$0UA28: CSYSLIBILIB.L32;1 18619 4 0 
; Information: 5 
; Warnings: 


3; Errors: 
COMMAND QUALIFIERS 


; Size: 1793 code + 147 data bytes 
; Run Time: 

; Elapsed Time: 

; Lines/CPU Min: a 4" 

: ROvenee/CPU=tita 1932 

; Y Used: 345 pages 

: a ation Complete 


Pages 
Mapped 


1000 


yar Bliss-32 
DISKSVMSMASTER: 


Processing 
Time 


00:01.9 


tbe she PARSE1.832; ’ 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:PARSE1/OBJ=OBJ$:PARSE1 MSRC$:PARSE1/UPDATE=(ENH$:PARSE1) 


29° 44) 
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